home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_93-03_1993_-_de_Side_B.d64 / adress-manager (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  17KB  |  664 lines
  1. 2 if f=0 then f=1:load"rou1",8,1
  2. 3 dim nn$(5600):gosub2000
  3. 4 printchr$(14):printchr$(8):print"[147]"
  4. 6 print"[147]":open2,8,2,"adressen,l,"+chr$(21):open15,8,15
  5. 8 forrn=1to5601 step 8
  6. 10 ph=int(rn/256):pl=rn-256*ph:rp=1
  7. 12 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(rp)
  8. 14 input#2,nn$(rn)
  9. 16 if nn$(rn)=chr$(255)then close2:close15:goto46
  10. 18 next rn:az=700:pr$=" 0.00"
  11. 20 print"[147][214]orsicht! [196]er gesamte [193]dressenspeicher-"
  12. 22 print"[163][163][163][163][163][163][163][163]  platz ist belegt. [194]itte loe-"
  13. 24 print"          schen [211]ie einige [193]dressen oder"
  14. 26 print"[145]          legen [211]ie eine neue [196]atendisk"
  15. 28 print"          an!":close2:close15
  16. 30 gets$:ifs$="" goto30
  17. 32 goto64
  18. 46 print:print:print:print:print:print
  19. 48 az =(rn-1)/8:pr=100-az/7:pr$=str$(pr):if pr=100 thenpr$=mid$(pr$,1,4):goto50
  20. 49 pr$=mid$(pr$,1,5):
  21. 50 if az =1 then print"   [197]s ist eine [193]dresse gespeichert.":goto 54
  22. 52 print"[144]   [197]s sind ";az;" [193]dressen gespeichert."
  23. 54 print:print: print"   [197]s koennen noch ";700-az;"[193]dressen "
  24. 56 print"   gespeichert werden."
  25. 58 gets$:ifs$="" goto58
  26. 60 if xx=99 then print"[147]":return
  27. 62 goto64
  28. 64 printchr$(14):printchr$(8):print"[147]"
  29. 66 gosub 1354:print"[147]":poke53280,4:poke53281,7
  30. 68 print"[144]            [193]dress-manager";
  31. 70 print"[145] ";pr$;" % frei"
  32. 72 print"[152]            [163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [163][163][163][163][163][163][163][163][163][163][163]":print
  33. 74 print" [196]iskette:";kk$:print:print
  34. 76 print"[144]     f1[146]    [193]dressen-[207]perationen"
  35. 78 print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print
  36. 80 print"[144]     f3[146]    [196]isketten-[207]perationen"
  37. 82 print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print
  38. 84 print"[144]     f5[146]    [198]ehlermeldungen der [198]loppy"
  39. 86 print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print
  40. 92 print"[144]     [197][146]     [208]rogramm beenden"
  41. 94 print"           [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  42. 100 get s$:ifs$="" goto100
  43. 102 if asc(s$)=133 then 320
  44. 104 if asc(s$)=134 then 136
  45. 106 if asc(s$)=135 then 114
  46. 110 if s$="e"      then 1352
  47. 112 goto100
  48. 114 print"[147]"
  49. 120 open15,8,15:input#15,a$,s$,d$,f$:close15
  50. 122 print"       [144]";a$;" ";s$;" ";d$;" ";f$
  51. 128 gets$:ifs$="" goto128
  52. 130 goto 66
  53. 136 print"[147]"
  54. 138 print"[144]      [196]isketten-[207]perationen"+"[144]"
  55. 140 print"[150]      [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] [145] [163][163][163][163][163][163][163][163][163][163][163]":print
  56. 142 print" [196]iskette:";kk$:print:print"[144]";
  57. 144 print"    f1[146]  [196]iskette validieren
  58. 146 [153]"        tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]
  59. 148 [153]"    f3wait  neuen (NULL)amen fuer str$iskette"
  60. 150 [153]"        tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]
  61. 152 [153]"    f5wait  str$iskette formatieren"
  62. 154 [153]"        tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(" :[153]
  63. 156 [153]"    f7wait  neue str$atendisk anlegen"
  64. 158 [153]"        tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(":[153]
  65. 160 [153]"     _wait  (NULL)urueck zu left$auptmenue"
  66. 162 [153]"        tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(";
  67. 163 [153]"";pr$;" % frei"
  68. 168 [161]s$:[139]s$[178]"" [167]168
  69. 170 [139] s$[178]"_" [167] [137]64
  70. 172 [139] [198](s$) [178]133 [167] 182
  71. 174 [139] [198](s$) [178]134 [167] [141] 284
  72. 176 [139] [198](s$) [178]135 [167] 186
  73. 178 [139] [198](s$) [178]136 [167] 210
  74. 180 [137]168
  75. 182 [153]"load            (NULL)alidiere str$isk!"
  76. 184 [159] 15,8,15,"v":[160]15:[137]136
  77. 186 [153]"load     (NULL)irklich formatieren?(j/n)"
  78. 188 [161]s$:[139]s$[178]"" [137]188
  79. 190 [139] [168]  s$[178]"j" [167] [137] 136
  80. 192 [159]15,8,15,"n:adress-manager,nc":[160]15
  81. 208 [137] 66
  82. 210 [153]"load"
  83. 212 [153]"       (NULL)eue str$atendisk anlegendef   tab(tab(tab(tab(tab(tab(tab(tab("
  84. 214 [153]"on      stop tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  85. 220 [153]"stop (NULL)egen (NULL)ie bitte eine leere,formatierte"
  86. 222 [153]
  87. 224 [153]" str$iskette in das (NULL)aufwerk und druecken "
  88. 226 [153]
  89. 228 [153]" (NULL)ie (NULL)eturn!"
  90. 230 [153]:[153]
  91. 232 [153]" _wait ascuer (NULL)ueckkehr zum left$auptmenue"
  92. 234 [153]"
  93. 238 gets$:ifs$="" goto 238
  94. 240 if s$="_" goto 66
  95. 242 if s$=chr$(13) goto  246
  96. 244 goto234
  97. 246 print"[147]":print:print:print:print:print:print"       [194]itte warten!"
  98. 248 :rl=21:rem recordlaenge + 1*return
  99. 250 rn=5601:rem anzahl der records + 1*fuer chr$(255)[endmarkierung]
  100. 252 ph =int(rn/256)
  101. 254 pl=rn-256*ph
  102. 256 rp=1:rem position im record
  103. 258 open2,8,2,"adressen,l,"+chr$(21)
  104. 260 open15,8,15
  105. 262 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(rp)
  106. 264 print#2,chr$(255)
  107. 266 close2:close15
  108. 282 open15,8,15:input#15,a$:close15
  109. 284 print"[147]":nd$=""
  110. 286 print"  [206]ame fuer die [196]atendiskette ?":print:print:print"    [157]";
  111. 288 gets$:ifs$="" then 288
  112. 290 if s$=chr$(34) then 288
  113. 292 if s$=chr$(58) then 288
  114. 294 if s$=chr$(13) then 312
  115. 296 if s$=chr$(20) then 300
  116. 298 goto304
  117. 300 if len(nd$)=0 then 304
  118. 302 nd$=mid$(nd$,1,(len(nd$))-1):printchr$(20);
  119. 304 if s$<chr$(32) or s$>chr$(95) then 288
  120. 306 if len(nd$) = 30 then 288
  121. 308 print"[146]";mid$(s$,1,1);" [157]"; :nd$=nd$+s$
  122. 310 goto288
  123. 312 open15,8,15,"s:kennung":close15
  124. 314 open 2,8,2,"kennung,s,w":print#2,nd$:close2
  125. 316 gosub 1354:if fd=99 then fd=0:return
  126. 318 goto136
  127. 320 rem ******************************
  128. 322 rem *    adressen-operationen    *
  129. 324 rem ******************************
  130. 325 print"[147][144]     [193]dressen [207]perationen  ";pr$;" % frei"
  131. 332 print"[144]     [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   [163][163][163][163][163][163][163][163][163][163][163]"
  132. 334 print:print" [196]iskette:";kk$:print
  133. 336 print"[144]      f1[146]    [193]dressen speichern"
  134. 338 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":print
  135. 340 print"      f3[146]    [193]dressen suchen   "
  136. 342 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]   ":print
  137. 344 print"      f5[146]    [193]dressen aendern  "
  138. 346 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  ":print
  139. 348 print"      f7[146]    [193]dressen loeschen "
  140. 350 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163] ":print
  141. 352 print"       \[146]    [193]dressen-[213]ebersicht  "
  142. 354 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  ":print
  143. 356 print"       _[146]    [218]urueck zu [200]auptmenue"
  144. 358 print"            [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  145. 364 gets$:ifs$="" goto364
  146. 366 if asc(s$)=133 then 480
  147. 368 if asc(s$)=134 then 660
  148. 370 if asc(s$)=135 then 1218
  149. 372 if asc(s$)=136 then 380
  150. 374 if s$="\" then 583
  151. 376 if s$="_" then 64
  152. 378 goto 364
  153. 380 rem *****************************
  154. 382 print"[147]":gosub 1360:print:input " [206]achname";w$
  155. 384 if len(w$)<20 then w$=w$+" ": goto 384
  156. 386 for b=1 to rn step 8
  157. 388 if nn$(b) = w$ then 392
  158. 390 next b:goto 770
  159. 392 open2,8,2,"adressen,l,"+chr$(21)
  160. 394 open 15,8,15
  161. 396 forg=0 to 7
  162. 398 u= b+g
  163. 400 ph=int(u/256)
  164. 402 pl=u-256*ph
  165. 404 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(1)
  166. 406 input#2,m$(g)
  167. 408 next g:close2:close15
  168. 410 print
  169. 412 print"[206]achname:      ";m$(0)
  170. 414 print"[214]orname:       ";m$(1)
  171. 416 print"[215]ohnort:       ";m$(2)
  172. 418 print"[208]ostleitzahl:  ";m$(3)
  173. 420 print"[211]trassenname:  ";m$(4)
  174. 422 print"[200]ausnummer:    ";m$(5)
  175. 424 print"[199]eburtsdatum:  ";m$(6)
  176. 426 print"[212]elephonnr.:   ";m$(7)
  177. 428 print:print:print" [193]dresse loeschen?(j/n)"
  178. 430 get s$:ifs$="" then 430
  179. 432 if s$="n" then 390
  180. 433 if s$="j" then 436
  181. 434 goto 430
  182. 436 open2,8,2,"adressen,l,"+chr$(21):open15,8,15
  183. 438 for f= 0to7
  184. 440 u=rn-8 +f
  185. 442 ph=int(u/256)
  186. 444 pl=u-256*ph
  187. 446 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(1)
  188. 448 input#2,m$(f)
  189. 450 next f
  190. 452 for f= 0to7
  191. 454 u=b+f
  192. 456 ph=int(u/256)
  193. 458 pl=u-256*ph
  194. 460 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(1)
  195. 462 print#2,m$(f)
  196. 464 next f
  197. 466 for f=rn-8 to rn-1
  198. 468 ph=int(f/256)
  199. 470 pl=f-256*ph
  200. 472 print#15,"p"+chr$(2)+chr$(pl)+chr$(ph)+chr$(1)
  201. 474 print#2,chr$(255)
  202. 476 next f:close2:close15:xx=99:gosub 4:xx=1:goto320
  203. 478 stop
  204. 480 rem ******************************
  205. 482 rem *     adressen speichern     *
  206. 484 rem ******************************
  207. 486 print"[147]":gosub 1360
  208. 488 for f=0 to 7:a$(f)="":next f
  209. 490 print"[147][144]":print:print"  [205]aximale [198]eldelementlaenge:"
  210. 492 print"  20 [218]eichen!"
  211. 494 print:print
  212. 496 print"  [206]achname:     "
  213. 498 print"  [214]orname:      "
  214. 500 print"  [215]ohnort:      "
  215. 502 print"  [208]ostleitzahl: "
  216. 504 print"  [211]trassenname: "
  217. 506 print"  [200]ausnummer:   "
  218. 508 print"  [199]eburtsdatum: "
  219. 510 print"  [212]elephonnr.:  "
  220. 512 print"[145][145][145][145][145][145][145][145][145]"
  221. 514 input"  [206]achname:     ";a$(0)
  222. 516 if a$(0)="" then 320
  223. 518 input"  [214]orname:      ";a$(1)
  224. 520 if a$(1)="" then a$(1)="*"
  225. 522 input"  [215]ohnort:      ";a$(2)
  226. 524 if a$(2)="" then a$(2)="*"
  227. 526 input"  [208]ostleitzahl: ";a$(3)
  228. 528 if a$(3)="" then a$(3)="*"
  229. 530 input"  [211]trassenname: ";a$(4)
  230. 532 if a$(4)="" then a$(4)="*"
  231. 534 input"  [200]ausnummer:   ";a$(5)
  232. 536 if a$(5)="" then a$(5)="*"
  233. 538 input"  [199]eburtsdatum: ";a$(6)
  234. 540 if a$(6)="" then a$(6)="*"
  235. 542 input"  [212]elephonnr.:  ";a$(7)
  236. 544 if a$(7)="" then a$(7)="*"
  237. 546 print:print" [193]lles richtig?(j/n)
  238. 548 [161]s$:[139]s$[178]"" [167] 548
  239. 550 [139] s$[178]"n" [167] [153]"on                    ";:[153]"onon":[137]512
  240. 552 [139] s$[178]"j" [167] [153]"on                     ":[137] 556
  241. 554 [137] 548
  242. 556 [129]f[178]0[164]7
  243. 558 a$(f)[178][200](a$(f),20)
  244. 560 [139] [195](a$(f))[179]20 [167] a$(f)[178]a$(f)[170]" ":[137] 560
  245. 562 [130] f
  246. 564 [159] 2,8,2,"adressen,l,"[170][199](21):[159] 15,8,15
  247. 566 [129]f[178]0[164]7
  248. 568 u [178]rn[170]f
  249. 570 ph[178][181]( u[173]256)
  250. 572 pl[178] u[171]256[172]ph
  251. 574 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  252. 576 [152]2,a$(f)
  253. 578 [130] f
  254. 580 [160]2:[160]15:xx[178]99:[141] 4:xx[178]0:[137]320
  255. 582 [143] ******************************
  256. 583 [139] rn[178]1 [167] [137] 320
  257. 584 [141] 1360:[153]"load";:   [159] 2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  258. 586 [129]hi[178] 1 [164] 700[172]8 [169]160:[153]"load";:[139] hi[177]rn[171]1 [167] hi[178]hi[171]160
  259. 588 sq[178]19:[139] hi[170](19[172]8)[177]rn[171]1 [167] sq[178]((rn[171]1)[173]8)[171](hi[173]8)
  260. 590 [129] lo[178]0 [164] sq
  261. 592 f[178]hi[170](lo[172]8)
  262. 594 u[178]f[170]1
  263. 596 ph[178][181](u[173]256)
  264. 598 [161]s$:[139]s$[178]"q" [167] [160]2:[160]15:[137]320
  265. 600 pl[178]u[171]256[172]ph
  266. 602 [161]s$:[139]s$[178]"q" [167] [160]2:[160]15:[137]320
  267. 604 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  268. 606 [161]s$:[139]s$[178]"q" [167] [160]2:[160]15:[137]320
  269. 608 [132]2,a$(1)
  270. 610 [161]s$:[139]s$[178]"q" [167] [160]2:[160]15:[137]320
  271. 612 [153][202](nn$(f),1,15);"(NULL)";[202](a$(1),1,15)
  272. 614 [161]s$:[139]s$[178]"q" [167] [160]2:[160]15:[137]320
  273. 616 [130] lo
  274. 618 y[178]55296
  275. 620 [158] 49402,y,y[170]30,8
  276. 622 [161]s$:[139]s$[178]"" [167] 622
  277. 624 [139] s$[178]"q" [167] [160]2:[160]15:[137]320
  278. 626 [139] s$[178]"+" [167] [130] hi
  279. 628 [139] s$[178]"-" [167] hi[178]hi[171]320:[139] hi[179][171]160[167] hi[178]hi[170]320:[137]622
  280. 630 [139] s$[178]"-" [167] [130] hi
  281. 632 [139] s$[178][199](17) [167] y[178]y[170]40:[137]636
  282. 634 [137] 640
  283. 636 [139] y[177]55296[170]sq[172]40 [167] y[178]y[171]40:[137] 622
  284. 638 [158] 49402,y[171]40,y[171]40[170]30,0:[137]620
  285. 640 [139] s$[178][199](145) [167] y[178]y[171]40:[137]644
  286. 642 [137] 648
  287. 644 [139] y[179]55296[167] y[178]y[170]40:[137] 622
  288. 646 [158] 49402,y[170]40,y[170]40[170]30,0:[137]620
  289. 648 [139] s$[178][199](13)[167] b[178] hi[170]((y[171]55296)[173]40)[172]8     :cd[178]1:[141]726:cd[178]0:[137]652
  290. 650 [137]622
  291. 652 [161]s$:[139]s$[178]"" [167] 652
  292. 654 [153]"load";:[137]588
  293. 656 [137]622
  294. 658 [137]622
  295. 660 [143] ******************************
  296. 662 [153]"load"
  297. 664 [153]"verify            atndressen suchen"[170]"stop";
  298. 666 [153]"on ";pr$;" % frei"
  299. 668 [153]"print#            tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab( on tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  300. 670 [141] 1360:[153]" (NULL)ach welchen (NULL)riterien wollen (NULL)ie":[153]" suchen?"
  301. 672 [153]:[153]"stop   (NULL)wait - (NULL)achname"
  302. 674 [153]:[153]"stop   (NULL)wait - (NULL)orname "
  303. 676 [153]:[153]"stop   (NULL)wait - (NULL)ohnort "
  304. 678 [153]:[153]"stop   (NULL)wait - (NULL)ostleitzahl"
  305. 680 [153]:[153]"stop   (NULL)wait - (NULL)trassenname"
  306. 682 [153]:[153]"stop   left$wait - left$ausnummer  "
  307. 684 [153]:[153]"stop   chr$wait - chr$eburtsdatum"
  308. 686 [153]:[153]"stop   (NULL)wait - (NULL)elephonnr. "
  309. 692 [161] s$:[139]s$[178]"" [137]692
  310. 694 [139] s$[178]"n" [167] 712
  311. 696 [139] s$[178]"v" [167] 784
  312. 698 [139] s$[178]"w" [167] 846
  313. 700 [139] s$[178]"p" [167] 908
  314. 702 [139] s$[178]"s" [167] 970
  315. 704 [139] s$[178]"h" [167] 1032
  316. 706 [139] s$[178]"g" [167] 1094
  317. 708 [139] s$[178]"t" [167] 1156
  318. 710 [137]692
  319. 712 [153]"load":[153]:[133] " (NULL)achname";w$
  320. 714 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 714
  321. 716 [129] b[178]1 [164] rn [169] 8
  322. 718 [139] nn$(b) [178] w$ [167] 722
  323. 720 [130] b:[137] 770
  324. 722 [159]2,8,2,"adressen,l,"[170][199](21)
  325. 724 [159] 15,8,15
  326. 726 [153]"load":[129]g[178]0 [164] 7
  327. 728 u[178] b[170]g
  328. 730 ph[178][181](u[173]256)
  329. 732 pl[178]u[171]256[172]ph
  330. 734 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  331. 736 [132]2,m$(g)
  332. 738 [130] g:[139] cd[178]1 [167] 742
  333. 740 [160]2:[160]15
  334. 742 [153]
  335. 744 [153]"(NULL)achname:      ";m$(0)
  336. 746 [153]"(NULL)orname:       ";m$(1)
  337. 748 [153]"(NULL)ohnort:       ";m$(2)
  338. 750 [153]"(NULL)ostleitzahl:  ";m$(3)
  339. 752 [153]"(NULL)trassenname:  ";m$(4)
  340. 754 [153]"left$ausnummer:    ";m$(5)
  341. 756 [153]"chr$eburtsdatum:  ";m$(6)
  342. 758 [153]"(NULL)elephonnr.:   ";m$(7):[139]cd[178]1[167] [142]
  343. 760 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  344. 762 [161] s$:[139]s$[178]"" [167] 762
  345. 764 [139] s$[178]"j" [167] [130] b
  346. 766 [139] s$[178]"n" [167] [137] 320
  347. 768 [137] 762
  348. 770 [153]"load":[153]:[153]:[153]:[153]
  349. 772 [153]" (NULL)erzeihung, die gewuenschte atndresse"
  350. 774 [153]
  351. 776 [153]" ist noch nicht gespeichert!"
  352. 778 [153]:[153]:[153]:[153]:[153]"                                 (NULL)aste!"
  353. 780 [161] s$:[139]s$[178]"" [167] 780
  354. 782 [137] 320
  355. 784 [153]"load":[153]:[133] " (NULL)orname ";w$
  356. 786 w$[178][202](w$,1,20)
  357. 788 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 788
  358. 790 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  359. 792 [129]f[178]2 [164] rn [169] 8
  360. 794 ph[178][181](f[173]256)
  361. 796 pl[178]f[171]256[172]ph
  362. 798 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  363. 800 [132]2,ww$:[139]ww$[178]w$ [167] 804
  364. 802 [130] f:[160]2:[160]15:[137]770
  365. 804 [129] g[178] 0 [164] 7
  366. 806 u[178]f[171]1[170]g
  367. 808 ph[178][181](u[173]256)
  368. 810 pl[178]u[171]256[172]ph
  369. 812 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  370. 814 [132]2,m$(g)
  371. 816 [130] g
  372. 818 [153]
  373. 820 [153]"(NULL)achname:      ";m$(0)
  374. 822 [153]"(NULL)orname:       ";m$(1)
  375. 824 [153]"(NULL)ohnort:       ";m$(2)
  376. 826 [153]"(NULL)ostleitzahl:  ";m$(3)
  377. 828 [153]"(NULL)trassenname:  ";m$(4)
  378. 830 [153]"left$ausnummer:    ";m$(5)
  379. 832 [153]"chr$eburtsdatum:  ";m$(6)
  380. 834 [153]"(NULL)elephonnr.:   ";m$(7)
  381. 836 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  382. 838 [161] s$:[139]s$[178]"" [167] 838
  383. 840 [139] s$[178]"j" [167] [153]"on                        ":[137] 802
  384. 842 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  385. 844 [137]838
  386. 846 [153]"load":[153]:[133] " (NULL)ohnort ";w$
  387. 848 w$[178][202](w$,1,20)
  388. 850 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 850
  389. 852 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  390. 854 [129]f[178]3 [164] rn [169] 8
  391. 856 ph[178][181](f[173]256)
  392. 858 pl[178]f[171]256[172]ph
  393. 860 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  394. 862 [132]2,ww$:[139]ww$[178]w$ [167] 866
  395. 864 [130] f:[160]2:[160]15:[137]770
  396. 866 [129] g[178] 0 [164] 7
  397. 868 u[178]f[171]2[170]g
  398. 870 ph[178][181](u[173]256)
  399. 872 pl[178]u[171]256[172]ph
  400. 874 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  401. 876 [132]2,m$(g)
  402. 878 [130] g
  403. 880 [153]
  404. 882 [153]"(NULL)achname:      ";m$(0)
  405. 884 [153]"(NULL)orname:       ";m$(1)
  406. 886 [153]"(NULL)ohnort:       ";m$(2)
  407. 888 [153]"(NULL)ostleitzahl:  ";m$(3)
  408. 890 [153]"(NULL)trassenname:  ";m$(4)
  409. 892 [153]"left$ausnummer:    ";m$(5)
  410. 894 [153]"chr$eburtsdatum:  ";m$(6)
  411. 896 [153]"(NULL)elephonnr.:   ";m$(7)
  412. 898 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  413. 900 [161] s$:[139]s$[178]"" [167] 900
  414. 902 [139] s$[178]"j" [167] [153]"on                        ":[137] 864
  415. 904 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  416. 906 [137]900
  417. 908 [153]"load":[153]:[133]"(NULL)ostleitzahl:";w$
  418. 910 w$[178][202](w$,1,20)
  419. 912 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 912
  420. 914 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  421. 916 [129]f[178]4 [164] rn [169] 8
  422. 918 ph[178][181](f[173]256)
  423. 920 pl[178]f[171]256[172]ph
  424. 922 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  425. 924 [132]2,ww$:[139]ww$[178]w$ [167] 928
  426. 926 [130] f:[160]2:[160]15:[137]770
  427. 928 [129] g[178] 0 [164] 7
  428. 930 u[178]f[171]3[170]g
  429. 932 ph[178][181](u[173]256)
  430. 934 pl[178]u[171]256[172]ph
  431. 936 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  432. 938 [132]2,m$(g)
  433. 940 [130] g
  434. 942 [153]
  435. 944 [153]"(NULL)achname:      ";m$(0)
  436. 946 [153]"(NULL)orname:       ";m$(1)
  437. 948 [153]"(NULL)ohnort:       ";m$(2)
  438. 950 [153]"(NULL)ostleitzahl:  ";m$(3)
  439. 952 [153]"(NULL)trassenname:  ";m$(4)
  440. 954 [153]"left$ausnummer:    ";m$(5)
  441. 956 [153]"chr$eburtsdatum:  ";m$(6)
  442. 958 [153]"(NULL)elephonnr.:   ";m$(7)
  443. 960 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  444. 962 [161] s$:[139]s$[178]"" [167] 962
  445. 964 [139] s$[178]"j" [167] [153]"on                        ":[137] 926
  446. 966 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  447. 968 [137]962
  448. 970 [153]"load":[153]:[133] " (NULL)trassenname:";w$
  449. 972 w$[178][202](w$,1,20)
  450. 974 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 974
  451. 976 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  452. 978 [129]f[178]5 [164] rn [169] 8
  453. 980 ph[178][181](f[173]256)
  454. 982 pl[178]f[171]256[172]ph
  455. 984 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  456. 986 [132]2,ww$:[139]ww$[178]w$ [167] 990
  457. 988 [130] f:[160]2:[160]15:[137]770
  458. 990 [129] g[178] 0 [164] 7
  459. 992 u[178]f[171]4[170]g
  460. 994 ph[178][181](u[173]256)
  461. 996 pl[178]u[171]256[172]ph
  462. 998 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  463. 1000 [132]2,m$(g)
  464. 1002 [130] g
  465. 1004 [153]
  466. 1006 [153]"(NULL)achname:      ";m$(0)
  467. 1008 [153]"(NULL)orname:       ";m$(1)
  468. 1010 [153]"(NULL)ohnort:       ";m$(2)
  469. 1012 [153]"(NULL)ostleitzahl:  ";m$(3)
  470. 1014 [153]"(NULL)trassenname:  ";m$(4)
  471. 1016 [153]"left$ausnummer:    ";m$(5)
  472. 1018 [153]"chr$eburtsdatum:  ";m$(6)
  473. 1020 [153]"(NULL)elephonnr.:   ";m$(7)
  474. 1022 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  475. 1024 [161] s$:[139]s$[178]"" [167] 1024
  476. 1026 [139] s$[178]"j" [167] [153]"on                        ":[137] 988
  477. 1028 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  478. 1030 [137]1024
  479. 1032 [153]"load":[153]:[133] " left$ausnummer: ";w$
  480. 1034 w$[178][202](w$,1,20)
  481. 1036 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 1036
  482. 1038 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  483. 1040 [129]f[178]6 [164] rn [169] 8
  484. 1042 ph[178][181](f[173]256)
  485. 1044 pl[178]f[171]256[172]ph
  486. 1046 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  487. 1048 [132]2,ww$:[139]ww$[178]w$ [167] 1052
  488. 1050 [130] f:[160]2:[160]15:[137]770
  489. 1052 [129] g[178] 0 [164] 7
  490. 1054 u[178]f[171]5[170]g
  491. 1056 ph[178][181](u[173]256)
  492. 1058 pl[178]u[171]256[172]ph
  493. 1060 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  494. 1062 [132]2,m$(g)
  495. 1064 [130] g
  496. 1066 [153]
  497. 1068 [153]"(NULL)achname:      ";m$(0)
  498. 1070 [153]"(NULL)orname:       ";m$(1)
  499. 1072 [153]"(NULL)ohnort:       ";m$(2)
  500. 1074 [153]"(NULL)ostleitzahl:  ";m$(3)
  501. 1076 [153]"(NULL)trassenname:  ";m$(4)
  502. 1078 [153]"left$ausnummer:    ";m$(5)
  503. 1080 [153]"chr$eburtsdatum:  ";m$(6)
  504. 1082 [153]"(NULL)elephonnr.:   ";m$(7)
  505. 1084 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  506. 1086 [161] s$:[139]s$[178]"" [167] 1086
  507. 1088 [139] s$[178]"j" [167] [153]"on                        ":[137] 1050
  508. 1090 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  509. 1092 [137]1086
  510. 1094 [153]"load":[153]:[133] " chr$eburtsdatum: ";w$
  511. 1096 w$[178][202](w$,1,20)
  512. 1098 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 1098
  513. 1100 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  514. 1102 [129]f[178]7 [164] rn [169] 8
  515. 1104 ph[178][181](f[173]256)
  516. 1106 pl[178]f[171]256[172]ph
  517. 1108 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  518. 1110 [132]2,ww$:[139]ww$[178]w$ [167] 1114
  519. 1112 [130] f:[160]2:[160]15:[137]770
  520. 1114 [129] g[178] 0 [164] 7
  521. 1116 u[178]f[171]6[170]g
  522. 1118 ph[178][181](u[173]256)
  523. 1120 pl[178]u[171]256[172]ph
  524. 1122 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  525. 1124 [132]2,m$(g)
  526. 1126 [130] g
  527. 1128 [153]
  528. 1130 [153]"(NULL)achname:      ";m$(0)
  529. 1132 [153]"(NULL)orname:       ";m$(1)
  530. 1134 [153]"(NULL)ohnort:       ";m$(2)
  531. 1136 [153]"(NULL)ostleitzahl:  ";m$(3)
  532. 1138 [153]"(NULL)trassenname:  ";m$(4)
  533. 1140 [153]"left$ausnummer:    ";m$(5)
  534. 1142 [153]"chr$eburtsdatum:  ";m$(6)
  535. 1144 [153]"(NULL)elephonnr.:   ";m$(7)
  536. 1146 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  537. 1148 [161] s$:[139]s$[178]"" [167] 1148
  538. 1150 [139] s$[178]"j" [167] [153]"on                        ":[137] 1112
  539. 1152 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  540. 1154 [137]1148
  541. 1156 [153]"load":[153]:[133] " (NULL)elephonnr.: ";w$
  542. 1158 w$[178][202](w$,1,20)
  543. 1160 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ": [137] 1160
  544. 1162 [159]2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  545. 1164 [129]f[178]8 [164] rn [169] 8
  546. 1166 ph[178][181](f[173]256)
  547. 1168 pl[178]f[171]256[172]ph
  548. 1170 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  549. 1172 [132]2,ww$:[139]ww$[178]w$ [167] 1176
  550. 1174 [130] f:[160]2:[160]15:[137]770
  551. 1176 [129] g[178] 0 [164] 7
  552. 1178 u[178]f[171]7[170]g
  553. 1180 ph[178][181](u[173]256)
  554. 1182 pl[178]u[171]256[172]ph
  555. 1184 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  556. 1186 [132]2,m$(g)
  557. 1188 [130] g
  558. 1190 [153]
  559. 1192 [153]"(NULL)achname:      ";m$(0)
  560. 1194 [153]"(NULL)orname:       ";m$(1)
  561. 1196 [153]"(NULL)ohnort:       ";m$(2)
  562. 1198 [153]"(NULL)ostleitzahl:  ";m$(3)
  563. 1200 [153]"(NULL)trassenname:  ";m$(4)
  564. 1202 [153]"left$ausnummer:    ";m$(5)
  565. 1204 [153]"chr$eburtsdatum:  ";m$(6)
  566. 1206 [153]"(NULL)elephonnr.:   ";m$(7)
  567. 1208 [153]:[153]:[153]" (NULL)eiter suchen?(j/n)"
  568. 1210 [161] s$:[139]s$[178]"" [167] 1210
  569. 1212 [139] s$[178]"j" [167] [153]"on                        ":[137] 1174
  570. 1214 [139] s$[178]"n" [167] [160]2:[160]15:[137] 320
  571. 1216 [137]1210
  572. 1218 ph[178][181](u[173]256)
  573. 1220 [153]"load":[153]
  574. 1222 [133]" (NULL)achname:";w$:[139] w$[178]"" [167] 320
  575. 1224 w$[178][202](w$,1,20)
  576. 1226 [139] [195](w$)[179]20 [167] w$[178]w$[170]" ":[137] 1226
  577. 1228 [129]f[178]1 [164] rn [169] 8
  578. 1230 [139] w$[178]nn$(f) [167] 1234
  579. 1232 [130] f:[160]2:[160]15:[137]770
  580. 1234 [159] 2,8,2,"adressen,l,"[170][199](21):[159]15,8,15
  581. 1236 [129]g[178]0 [164] 8
  582. 1238 u[178]f[170]g
  583. 1240 ph[178][181](u[173]256)
  584. 1242 pl[178]u[171]356[172]ph
  585. 1244 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  586. 1246 [132]2,m$(g)
  587. 1248 [130]g
  588. 1250 [153]
  589. 1252 [153]"(NULL)achname:       ";m$(0)
  590. 1254 [153]"(NULL)orname:        ";m$(1)
  591. 1256 [153]"(NULL)ohnort:        ";m$(2)
  592. 1258 [153]"(NULL)ostleitzahl:   ";m$(3)
  593. 1260 [153]"(NULL)trassenname:   ";m$(4)
  594. 1262 [153]"left$ausnummer:     ";m$(5)
  595. 1264 [153]"chr$eburtsdatum:   ";m$(6)
  596. 1266 [153]"(NULL)elephonnr.:    ";m$(7)
  597. 1268 [153]:[153]:[153]" atndresse aendern?(j/n)"
  598. 1270 [161] s$:[139]s$[178]"" [167] 1270
  599. 1272 [139] s$[178]"n" [167] [153]"on                        ":[160]2:[160]15 :[137] 1232
  600. 1274 [139] s$[178]"j" [167] [153]"onclose                       " :[137]1278
  601. 1276 [137] 1270
  602. 1278 m$(0)[178]""
  603. 1280 m$(1)[178]""
  604. 1282 m$(2)[178]""
  605. 1284 m$(3)[178]""
  606. 1286 m$(4)[178]""
  607. 1288 m$(5)[178]""
  608. 1290 m$(6)[178]""
  609. 1292 m$(7)[178]""
  610. 1294 [153]"onononononononononononon"
  611. 1296 [133]"(NULL)achname:     ";m$(0)
  612. 1298 [139] m$(0)[178]"" [167] m$(0)[178]"*"
  613. 1300 [133]"(NULL)orname:      ";m$(1)
  614. 1302 [139] m$(1)[178]"" [167] m$(1)[178]"*"
  615. 1304 [133]"(NULL)ohnort:      ";m$(2)
  616. 1306 [139] m$(2)[178]"" [167] m$(2)[178]"*"
  617. 1308 [133]"(NULL)ostleitzahl: ";m$(3)
  618. 1310 [139] m$(3)[178]"" [167] m$(3)[178]"*"
  619. 1312 [133]"(NULL)trassenname: ";m$(4)
  620. 1314 [139] m$(4)[178]"" [167] m$(4)[178]"*"
  621. 1316 [133]"left$ausnummer:   ";m$(5)
  622. 1318 [139] m$(5)[178]"" [167] m$(5)[178]"*"
  623. 1320 [133]"chr$eburtsdatum: ";m$(6)
  624. 1322 [139] m$(6)[178]"" [167] m$(6)[178]"*"
  625. 1324 [133]"(NULL)elephonnr.:  ";m$(7)
  626. 1326 [139] m$(7)[178]"" [167] m$(7)[178]"*"
  627. 1328 [129] t[178]0[164] 7
  628. 1330 m$(t)[178][202](m$(t),1,20)
  629. 1332 [139] [195](m$(t))[179]20 [167] m$(t) [178]m$(t)[170]" ":[137]1332
  630. 1334 [130] t
  631. 1336 [129]g[178]0 [164] 7
  632. 1338 u[178]f[170]g
  633. 1340 ph[178][181](u[173]256)
  634. 1342 pl[178]u[171]256[172]ph
  635. 1344 [152]15,"p"[170][199](2)[170][199](pl)[170][199](ph)[170][199](1)
  636. 1346 [152]2,m$(g)
  637. 1348 [130] g:[160]2:[160]15:xx[178]99:[141] 4
  638. 1350 [137]320
  639. 1352 [158] 58253
  640. 1354 [159]2,8,2,"kennung,s,r":[132]2,kk$:[160]2
  641. 1356 [159] 15,8,15:[132]15,a$:[160]15
  642. 1358 [142]
  643. 1360 [159]2,8,2,"kennung,s,r":[132]2,vk$:[160]2
  644. 1362 [139] vk$[178]kk$ [167] [142]
  645. 1364 kk$[178]vk$:xx[178]99:[141] 6 :xx[178]0
  646. 1366 [142]
  647. 1368 [159] 2,8,2,"kennung,s,r":[132]2,a$:[153]a$
  648. 2000 [153]"load":[151]53280,4:[151]53281,7:[153][199](14):[153][199](8):[153]"stop"
  649. 2010 [153]"   peekitte str$atendiskette einlegen!"
  650. 2015 [153]"             oder"
  651. 2016 [153]"             tab(tab(tab(tab("
  652. 2020 [153]"   _wait ... neue str$atendisk anlegen"
  653. 2030 [161]s$:[139]s$[178]"" [167] 2030
  654. 2040 [139] s$[179][177]"_" [167] [142]
  655. 2050 [139] s$[178]"_" [167] 2070
  656. 2060 [137]2030
  657. 2070 [153]"load":[153]"   str$iskette erst formatieren?(j/n)"
  658. 2080 [161]s$:[139]s$[178]"" [167] 2080
  659. 2090 [139] s$[178]"j" [167]2110
  660. 2100 [137]2130
  661. 2110 [153]"load      str$iskette wird formatiert!"
  662. 2120 [159] 15,8,15,"n:adressmanager,14":[160]15
  663. 2130 fd[178]99:[141]246 :[142]
  664.